home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / main.dir / 00232.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  2.8 KB  |  109 lines
  1. global fSep
  2.  
  3. on checkMainRollover
  4.   global gLastRolledOn, gLastRolledCast
  5.   repeat with i = 6 to 12
  6.     if rollOver(i) = 1 then
  7.       if gLastRolledOn = (i - 5) then
  8.         exit
  9.       end if
  10.       if gLastRolledOn <> 0 then
  11.         if i <> 6 then
  12.           resetDoor()
  13.         end if
  14.         set the castNum of sprite 13 to the number of cast "nullCast"
  15.       end if
  16.       set the castNum of sprite 13 to the number of cast ("MainHL" & string(i - 5))
  17.       updateStage()
  18.       set gLastRolledOn to i - 5
  19.       exit
  20.     end if
  21.   end repeat
  22.   if gLastRolledOn = 0 then
  23.     exit
  24.   end if
  25.   resetDoor()
  26.   set the castNum of sprite 13 to the number of cast "nullCast"
  27.   updateStage()
  28.   set gLastRolledOn to 0
  29. end
  30.  
  31. on SetUpRollover1
  32.   puppetSprite(13, 1)
  33.   set the stretch of sprite 13 to 0
  34.   repeat with x = 1 to 6
  35.     preLoadCast("MainHL" & string(x))
  36.   end repeat
  37. end
  38.  
  39. on resetDoor
  40.   global gLastRolledOn, gLastRolledCast
  41.   if the name of cast the castNum of sprite 13 = "door open" then
  42.     set the castNum of sprite 13 to the number of cast "door closed"
  43.     sound stop 1
  44.     set lName to the pathName & "SNDTRACK" & fSep & "LEAVE.AIF"
  45.     sound playFile 1, lName
  46.     puppetTransition(1, 2, 3, 1)
  47.     updateStage()
  48.   end if
  49. end
  50.  
  51. on DoorClick
  52.   global gLastRolledOn, gLastRolledCast
  53.   set gLastRolledOn to 1
  54.   if the name of cast the castNum of sprite 13 = "door closed" then
  55.     set the castNum of sprite 13 to the number of cast "MainHL1"
  56.     updateStage()
  57.     set the castNum of sprite 13 to the number of cast "door open"
  58.     puppetTransition(2, 2, 3, 1)
  59.     sound stop 1
  60.     set lName to the pathName & "SNDTRACK" & fSep & "ARRIVE.AIF"
  61.     sound playFile 1, lName
  62.     exit
  63.   else
  64.     if the name of cast the castNum of sprite 13 = "MainHL1" then
  65.       updateStage()
  66.       set the castNum of sprite 13 to the number of cast "door open"
  67.       puppetTransition(2, 2, 3, 1)
  68.       sound stop 1
  69.       set lName to the pathName & "SNDTRACK" & fSep & "ARRIVE.AIF"
  70.       sound playFile 1, lName
  71.       exit
  72.     else
  73.       go("HCraft", "06")
  74.     end if
  75.   end if
  76. end
  77.  
  78. on RolloverNumbers
  79.   global gLastRolledOn, gLastRolledCast
  80.   repeat with i = 20 to 30
  81.     if rollOver(i) = 1 then
  82.       if gLastRolledOn = i then
  83.         exit
  84.       end if
  85.       if gLastRolledOn <> 0 then
  86.         set the castNum of sprite gLastRolledOn to the number of cast ("Button" & string(gLastRolledOn - 19))
  87.       end if
  88.       set the castNum of sprite i to the number of cast ("Button" & string(i - 19) && "HL")
  89.       updateStage()
  90.       set gLastRolledOn to i
  91.       exit
  92.     end if
  93.   end repeat
  94.   if gLastRolledOn = 0 then
  95.     exit
  96.   end if
  97.   set the castNum of sprite gLastRolledOn to the number of cast ("Button" & string(gLastRolledOn - 19))
  98.   updateStage()
  99.   set gLastRolledOn to 0
  100. end
  101.  
  102. on setUpRollOverNumbers
  103.   ClearPuppets()
  104.   repeat with i = 20 to 30
  105.     puppetSprite(i, 1)
  106.     set the stretch of sprite i to 0
  107.   end repeat
  108. end
  109.